New Post: how to add page break every 14 row

 Dim xrow As Integer = 0

                        Do Until xrow == ws.LastRowUsed()
                            ws.PageSetup.AddHorizontalPageBreak(xrow)
                            xrow += 13
                        Loop