What is the value of i when you get the error message? Do you have a Schedule Level Style with that value?

PS: you seem to have overlooked my previous advice about changing:
.Font.Bold = Choose(i, 0, 0, 0, 0, 0, 0, 0, 0)
to:
.Font.Bold = False

Your left indents could also be handled more simply, via:
.ParagraphFormat.LeftIndent = InchesToPoints(Choose(i, 0.5, 1, 1.5, 2.25, 2.75, 3.25, 3.75))

Likewise, the varying first line indents could be handled via:
.ParagraphFormat.FirstLineIndent = -InchesToPoints(Choose(i, 0.5, 0.5, 0.5, 0.75, 0.5, 0.5, 0.5))

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