Here is a starting point.

```
x = y = Subdivide[4, 5];
pts = Transpose[{x, y}];  
 

Graphics[{Line[{{0, 0}, {4, 4}}], Text[#, # + {0.3, 0}] & /@ pts, Red,
  Point /@ pts}, Frame -> True]
```

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/IJa3h.png