The only references I can see in your code to the creation of Section breaks is for Continuous breaks. In any event, if you want to change an existing break type, you can use code like:
ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionNewPage

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]