inserts a continuous section break before the second paragraph in the active document:
Sub break() ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakContinuous End Sub