Es sind 2 verschiedene Verfahren. In deinem Beispiel wird der Timer über OCR1AL voreingestellt, sodass sich die Frequenz ändert.
Ich nehme eine feste Frequenz und verändere das Verhältnis zwischen Low und High.

Kannst ja auch dein Beispiel nehmen und dann,

If Pind.7 = 0 Then
For Dimmen = 0 to 255 ----------> von dunkel nach hell
OCR1AL=Dimmen
waitms 10
next ---------->dauert 255 * 10 ms = 2,55 sek
End If

If Pind.6 = 0 Then
For Dimmen = 255 to 0 ----------> von hell nach dunkel
OCR1AL=Dimmen
waitms 10
next
end if