Excel VisualBasic Script

Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdSectionBreakOddPage
End Sub