If Me.Chbx2 = True And Me.Chbx3 = True And Me.Chbx4 = True And Me.Chbx5 = True And Me.Chbx6 = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="First"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=" CheckBox2, "
Selection.TypeText Text:="CheckBox3, CheckBox4, CheckBox5 and CheckBox6"

OR if the below is my selection

If Me.Chbx2 = True And Me.Chbx3 = False And Me.Chbx4 = True And Me.Chbx5 = False And Me.Chbx6 = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="First"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=" CheckBox2, CheckBox4 and CheckBox6"