das ist das was ich schon ein mal gesagt hatte sau ins Datenblatt dann wüstes du das du nicht Timer0 sondern Timer1 Initialisierst.
Noch mal zum mit malen (ist nicht böse Gemeinde )
Das (
DDRB . 4 = 1
TTCR0 = &b00111010
)
Ist das was du machen möchtest zu Fus IN Bascom und bei ein vergleich mit deinem Code müste dir auffallen das dein Fehler darin liegt das du Timer1 ansprichst. Folglich müsste man nur
(
Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
)

Mfg
Das Novj