Prüf mal die Pageeinstellung gemäss Datenblatt.

Diese Inner-Schleife:
For I = 1 To 8
I2cwbyte A
Next I
wird da nicht funktionieren.