adds a new-page section to the active document, placing it before the second paragraph:
Sub break()
ActiveDocument.Sections.add Range:=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Paragraphs(2).Range.End), Start:=wdSectionNewPage
End Sub