// Одна страница
...
var
  a: OleVariiant;
begin
  a := wdPageBreak;
  WordApplication1.Selection.InsertBreak(a);
...
// Следующая страница