IN=1;KF=.1;τ=1;

T1=.1;P1=0;

TPtab={{T1,P1}};

For[i=2,i≤10000,i++,AppendTo[TPtab,{Mod[TPtab[[i-1]][[1]]+TPtab[[i-1]][[2]]/IN τ,2π],TPtab[[i-1]][[2]]+KF Sin[Mod[TPtab[[i-1]][[1]]+TPtab[[i-1]][[2]]/IN τ,2π]]}];]

ListPlot[TPtab,PlotStyle->PointSize[.005]]

ListPlot[TPtab,PlotStyle->PointSize[.005]]